(FILECREATED "29-MAY-75 19:32:57" FROB.;4 5566   

     changes to:  ANYB-EXS-TEST T2 T3 T4 FROBCOMS ANYB-EXS

     previous date: "29-MAY-75 18:40:59" FROB.;1)


  (LISPXPRINT (QUOTE FROBCOMS)
	      T T)
  (RPAQQ FROBCOMS ((FNS ANYB-EXS-TEST T2 ANYB-EXS T3 T4)))
(DEFINEQ

(ANYB-EXS-TEST
  [LAMBDA (A)
    45])

(T2
  [LAMBDA (P A)
    (APPLY* (PACK (LIST (QUOTE ANYB-EXS-)
			P))
	    A])

(ANYB-EXS
  [LAMBDA (P ETYPE)
    (SELECTQ P
	     [C-CHECK1 (LIST (QUOTE PROGN)
			     (LIST (QUOTE MAPC)
				   (LIST (QUOTE CDR)
					 (QUOTE GEXISTING))
				   (LIST (QUOTE FUNCTION)
					 (LIST (QUOTE LAMBDA)
					       (LIST (QUOTE GEX))
					       (LIST (QUOTE COND)
						     [LIST (LIST (QUOTE AND)
								 (LIST (QUOTE SATISFIES)
								       (QUOTE GEX)
								       (LIST (QUOTE QUOTE)
									     C-DEFNS))
								 (LIST (QUOTE SATISFIES)
								       (QUOTE GEX)
								       (LIST (QUOTE QUOTE)
									     C-INTUS]
						     (LIST (LIST (QUOTE GTRANSFER)
								 (QUOTE GEX)
								 (LIST (QUOTE QUOTE)
								       (QUOTE -NOT-BDY]
	     [C-FILLIN1 (LIST (QUOTE APPEND)
			      (LIST (QUOTE INSTAN-S)
				    (LIST (QUOTE APPLY*)
					  (QUOTE CS-B)
					  (LIST (QUOTE QUOTE)
						SPECS))
				    (QUOTE FILL-TYPE))
			      (LIST (QUOTE INSTAN-D)
				    (LIST (QUOTE APPLY*)
					  (QUOTE CS-B)
					  (LIST (QUOTE QUOTE)
						DEFNS))
				    (QUOTE FILL-TYPE))
			      (LIST (QUOTE INSTAN-I)
				    (LIST (QUOTE APPLY*)
					  (QUOTE CS-B)
					  (LIST (QUOTE QUOTE)
						INTUS))
				    (QUOTE FILL-TYPE]
	     [C-FILLIN2
	       (LIST (QUOTE APPEND)
		     (LIST (QUOTE AND)
			   [LIST (QUOTE SETQ)
				 (QUOTE A)
				 (LIST (QUOTE COPY)
				       (LIST (QUOTE SOME-MEMBER)
					     (LIST (QUOTE QUOTE)
						   (QUOTE C-ALGS))
					     (QUOTE GEXISTING]
			   NIL)
		     (LIST (QUOTE PROG1)
			   NIL
			   (LIST (QUOTE SORT)
				 (LIST (QUOTE CDDR)
				       (QUOTE GEXISTING))
				 (LIST (QUOTE QUOTE)
				       (QUOTE COUNT)))
			   [LIST (QUOTE AND)
				 (QUOTE ORIG-EMP)
				 (QUOTE GEXISTING)
				 (LIST (QUOTE MAPC)
				       (LIST (QUOTE APPLY*)
					     (QUOTE CS-B)
					     (LIST (QUOTE QUOTE)
						   OPS))
				       (LIST (QUOTE FUNCTION)
					     (LIST (QUOTE LAMBDA)
						   (LIST (QUOTE B1))
						   (LIST (QUOTE COND)
							 (LIST (LIST (QUOTE APPLY*)
								     (QUOTE B1)
								     (LIST (QUOTE QUOTE)
									   EXS)))
							 (LIST (LIST (QUOTE NCONC1)
								     (LIST (QUOTE CADR)
									   (LIST (QUOTE SFIND)
										 (LIST (QUOTE EXPR-IN)
										       (QUOTE B1))
										 (LIST (QUOTE QUOTE)
										       EXS)))
								     (LIST (QUOTE NCONC1)
									   (LIST (QUOTE COMMENT)
										 EXS
										 (QUOTE OF)
										 (QUOTE ELES)
										 (QUOTE OF)
										 (QUOTE A)
										 (QUOTE SUBDOMAIN)
										 (QUOTE OF)
										 (QUOTE YOURS)
										 (QUOTE GUARANTEED)
										 (QUOTE ON))
									   (QUOTE CS-B]
			   (LIST (QUOTE ADD-CANDS)
				 (LIST (QUOTE LIST)
				       (LIST (QUOTE LIST)
					     (LIST (QUOTE IQUOTIENT)
						   (LIST (QUOTE ITIMES)
							 (QUOTE CS-INT)
							 (QUOTE 9))
						   (QUOTE 10))
					     (LIST (QUOTE QUOTE)
						   CHECK)
					     (LIST (QUOTE LIST)
						   (QUOTE CS-B)
						   (LIST (QUOTE QUOTE)
							 EXS]
	     [C-SUGGESTS
	       (LIST (QUOTE APPEND)
		     [LIST (QUOTE MAPCONC)
			   (QUOTE PAST)
			   (LIST (QUOTE FUNCTION)
				 (LIST (QUOTE LAMBDA)
				       (LIST (QUOTE PE))
				       (LIST (QUOTE COND)
					     (LIST (LIST (QUOTE EQ)
							 (LIST (QUOTE CADADR)
							       (QUOTE PE))
							 (LIST (QUOTE QUOTE)
							       EXS))
						   (LIST (QUOTE LIST)
							 (LIST (QUOTE LIST)
							       (LIST (QUOTE COND)
								     [LIST (LIST (QUOTE NUMBERP)
										 (LIST (QUOTE CADDR)
										       (QUOTE PE]
								     (LIST (QUOTE 400)))
							       (LIST (QUOTE QUOTE)
								     (QUOTE RE-JUDGE))
							       (LIST (QUOTE CADR)
								     (QUOTE PE]
		     (LIST (QUOTE MAPCONC)
			   (QUOTE CONCEPTS)
			   (LIST (QUOTE FUNCTION)
				 (LIST (QUOTE LAMBDA)
				       (LIST (QUOTE C5))
				       (LIST (QUOTE AND)
					     [LIST (QUOTE NULL)
						   (LIST (QUOTE CAR)
							 (LIST (QUOTE ERSETQ)
							       (LIST (QUOTE APPLY*)
								     (QUOTE C5)
								     (LIST (QUOTE QUOTE)
									   EXS]
					     (LIST (QUOTE LIST)
						   (LIST (QUOTE LIST)
							 [LIST (QUOTE FIX)
							       (LIST (QUOTE DOTPROD)
								     (LIST (QUOTE LIST)
									   (QUOTE .7)
									   (QUOTE .1)
									   (QUOTE .1)
									   (QUOTE .1))
								     (LIST (QUOTE APPLY*)
									   (QUOTE C5)
									   (LIST (QUOTE QUOTE)
										 WORTH]
							 (LIST (QUOTE QUOTE)
							       FILLIN)
							 (LIST (QUOTE LIST)
							       (QUOTE C5)
							       (LIST (QUOTE QUOTE)
								     EXS]
	     [REPR (LIST (QUOTE ANY-OF)
			 (LIST (QUOTE AND)
			       (LIST (QUOTE EQ)
				     (QUOTE ETYPE)
				     (LIST (QUOTE QUOTE)
					   (QUOTE INIT)))
			       (LIST (QUOTE LIST)
				     (LIST (QUOTE QUOTE)
					   (QUOTE CLASS]
	     (AND (LIST (QUOTE SETQ)
			(QUOTE GTEMP)
			(LIST (QUOTE GETHASH)
			      (QUOTE P)
			      (QUOTE PREC])

(T3
  [LAMBDA (F)
    (FETCH NINTH OF FACETS])

(T4
  [LAMBDA (P A)
    (APPLY* (GETHASH (QUOTE ANYB-EXS)
		     P)
	    A])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (275 5542 (ANYB-EXS-TEST 287 . 326) (T2 330 . 411) (ANYB-EXS 415 . 5403) (T3 5407 . 5455) (T4 5459 .
5539)))))
STOP